home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 14
/
CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso
/
CUCD
/
Programming
/
IEditor
/
ARexx
/
Ridge20.ie
< prev
next >
Wrap
Text File
|
1997-06-17
|
470b
|
42 lines
/*
Ridge20
Draw a faked "Ridge" box, compatible with kickstart 2.0
*/
OPTIONS RESULTS
SIGNAL ON ERROR
ADDRESS 'IEDITOR.1'
/* Ask the user to select the box... */
'GETBOX'
bevel = result
/* Get the data we need */
'GETBOXATTR' bevel bx
/* Create a new box */
'ADDBOX' bx.leftedge+2 bx.topedge+1 bx.width-4 bx.height-2 1
newbox = result
if ~bx.recessed then 'SETBOXATTR' newbox 'RECESSED'
EXIT
ERROR:
say 'Error' RC 'on line' SIGL
EXIT RC